home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
editron.zip
/
EDITRON.Z
/
COBOL.TML
< prev
next >
Wrap
INI File
|
1994-08-22
|
3KB
|
156 lines
[templates]
acc&ept=ACCEPT &
add=ADD &\nEND ADD
addr&ess=ADDRESS OF &
aft&er=AFTER &
alphab&etic=ALPHABETIC&
alphan&umeric=ALPHANUMERIC &
al&so=ALSO &
asc&ending=ASCENDING &
ass&ign=ASSIGN &
bef&ore=BEFORE &
bin&ary=BINARY &
cal&l=CALL &
can&cel=CANCEL &
char&acters=CHARACTERS &
clo&se=CLOSE &
coll&ating=COLLATING &
comm&on=COMMON &
comp-&3=COMP-3 &
comp&ute=COMPUTE &
cont&ent=CONTENT &
con&tinue=CONTINUE &
conv&erting=CONVERTING &
corr&esponding=CORRESPONDING &
data=DATA DIVISION. &
del&ete=DELETE &
des&cending=DESCENDING &
disp&lay=DISPLAY &
div&ide=DIVIDE &
dupl&icates=DUPLICATES &
edi&ted=EDITED &
end=END &
ent&ry=ENTRY &
env&ironmental=ENVIRONMENTAL DIVISION. &
eq&ual=EQUAL &
err&or=ERROR &
exc&eption=EXCEPTION &
ext&end=EXTEND &
eva&luate=EVALUATE & WHEN\nEND EVALUATE
fd&/sd=FD/SD 01-&
fa&lse=FALSE &
file=FILE &
fil&e-control.=FILE-CONTROL. &
fir&st=FIRST &
giv&ing=GIVING &
gre&ater=GREATER &
ide&ntification=IDENTIFICATION DIVISION.\nPROGRAM-ID. &\nEND PROGRAM .
id=ID DIVISION.\nPROGRAM-ID. &\nEND PROGRAM .
if=IF & THEN\nEND IF
init&ial=INITIAL &
initiali&ze=INITIALIZE &
ind&ex=INDEX &
inp&ut=INPUT &
input-o&utput=INPUT-OUTPUT SECTION. &
inv&alid=INVALID &
insp&ect=INSPECT &
int&o=INTO &
inv&alid=invalid &
i-&o=I-O &
lab&el=LABEL &
lead&ing=LEADING &
len>h=LENGTH OF &
les&s=LESS &
link&age=LINKAGE SECTION. &
loc&k=LOCK &
mer&ge=MERGE &
mult&iply=MULTIPLY & BY\nEND MULTIPLY
neg&ative=NEGATIVE &
num&eric=NUMERIC &
op&en=OPEN &
opt&ional=OPTIONAL &
org&anization=ORGANIZATION &
oth&er=OTHER &
outp&ut=OUTPUT &
overf&low=OVERFLOW &
per&form=PERFORM &
perform.=PERFORM. &\nEND PERFORM
pac&ked=PACKED-DECIMAL &
poi&nter=POINTER &
pos&itive=POSITIVE &
proc&edure=PROCEDURE DIVISION &
prog&ram-id.=PROGRAM-ID. &\nEND PROGRAM .
read=READ &\nEND READ
rec&ord=RECORD &
ref&erence=REFERENCE &
rel&ease=RELEASE &
rep&lacing=REPLACING &
ret&urn=RETURN &\nEND RETURN
rewr&ite=REWRITE &\nEND REWRITE
rou&nded=ROUNDED &
sear&ch=SEARCH & WHEN \nEND SEARCH
set=SET & TO
seq&uence=SEQUENCE &
sel&ect=SELECT &
sequent&ial=SEQUENTIAL &
sear&ch=SEARCH & WHEN \nEND SEARCH
sect&ion=SECTION. &
set=SET & TO
seq&uence=SEQUENCE &
siz&e=SIZE &
sor&t=SORT &
start=START &\nEND START
string=STRING &\nEND STRING
stat&us=STATUS &
subt&ract=SUBTRACT &\nEND SUBTRACT
tal&lying=TALLYING &
tha&n=THAN &
thr&ough=THROUGH &
true=TRUE &
unstr&ing=UNSTRING &\nEND UNSTRING
unt&il=UNTIL &
usa&ge=USAGE &
use=USE AFTER PROCEDURE &
usi&ng=USING &
val&ue=VALUE
vary&ing=VARYING &
wh&en=WHEN &
wit&h=WITH &
work&ing=WORKING-STORAGE SECTION. &
wr&ite=WRITE &\nEND WRITE
ze&ro=ZERO &
[operational_pairs]
PROGRAM-ID. \tEND
ADD \tEND
CALL \tEND
COMPUTE \tEND
DELETE \tEND
DIVIDE \tEND
EVALUATE \tEND
IF \tEND
MULTIPLY \tEND
PERFORM. \tEND
READ \tEND
RETURN \tEND
REWRITE \tEND
SEARCH \tEND
START \tEND
STRING \tEND
UNSTRING \tEND
SUBTRACT \tEND
WRITE \tEND
END \bPROGRAM-ID. | \bADD | \bCALL | \bCOMPUTE | \bDELETE | \bDIVIDE | \bEVALUATE | \bIF | \bMULTIPLY | \bPERFORM. | \bREAD | \bRETURN | \bREWRITE | \bSEARCH | \bSTART | \bSTRING | \bUNSTRING | \bSUBTRACT | \bWRITE
[matching_pairs]
{ \t}
} \b{
( \t)
) \b(
[ \t]
] \b[